home *** CD-ROM | disk | FTP | other *** search
/ The Epic Collection 3 / Epic Collection 3, The (1997)(Epic Marketing)[!].iso / kidz / care_bears_sums / autoexec.amos / autoexec.amosSourceCode next >
AMOS Source Code  |  1992-05-20  |  9KB  |  328 lines
  1. '**************************************************************
  2. '*                                                            *
  3. '*                   THE CARE BEARS                           *
  4. '*                         BY                                 *
  5. '*                    MARK MURRAY                             *
  6. '*                                                            *
  7. '**************************************************************
  8. 'this is my first effort at a programme.I made loads of mistakes 
  9. 'but have managed to get it running not to bad.
  10. 'If you can alter this programme to make it run better 
  11. 'then please tell me   
  12. 'or if you just need to communicate with me the address is.. 
  13. 'Mark Murray,148 Gardner Crescent,Kincorth,Aberdeen,AB1 5TQ
  14. EARL:
  15. Bob Off 
  16. Auto View Off 
  17. Shared KEY,GAME
  18. Global KEY,GAME
  19. If GAME<1 Then SCR
  20. ZO
  21. If GAME<1 Then Double Buffer 
  22. 'cages 
  23. Bob 5,204,86,14
  24. Bob 6,152,86,14
  25. Bob 7,257,86,14
  26. 'cage lids 
  27. Bob 8,262,64,16
  28. Bob 9,209,64,16
  29. Bob 10,155,64,16
  30. KEY=0
  31. CAGE1
  32. CAGE2
  33. CAGE3
  34. MARK:
  35. BEAR
  36. SUM
  37. Rem change key numbers to change amount of shots needed to get key 
  38. If KEY>3 Then Amal Off 4
  39. If KEY>6 Then Amal Off 3
  40. If KEY>9 Then Amal Off 5
  41. If KEY=3 Then FIRST : BEAR : SUM
  42. If KEY=6 Then SECOND : BEAR : SUM
  43. If KEY=9 Then THIRD : FINALSCENARIO : Goto EARL
  44. AWAY
  45. Goto MARK
  46. Procedure BEAR
  47.    Channel 1 To Bob 15
  48.    Bob 15,-70,140,1
  49.    M$="Anim 3,(1,4)(2,4)(3,4)(4,4)(5,4)(6,4)(5,4)(4,4)(3,4)(2,4);"
  50.    M$=M$+"Move 250,0,100 ; "
  51.    M$=M$+"Anim 1,($8001,4)($8002,4)($8003,4)($8004,4)($8005,4)($8006,4)($8005,4)($8004,4)($8003,4)($8002,4);"
  52.    M$=M$+"Move -40,0,20;M 0,-40,10"
  53.    Amal 1,M$
  54.    Amal On 1
  55.    Wait 150
  56.    Amal Off 1
  57.    Bob 15,140,100,($8004)
  58. End Proc
  59. Procedure AWAY
  60.    Channel 2 To Bob 15
  61.    Bob 15,140,100,$8001
  62.    M$="Anim 4,(1,4)(2,4)(3,4)(4,4)(5,4)(6,4)(5,4)(4,4)(3,4)(2,4);"
  63.    M$=M$+"Move 40,40,100 ;"
  64.    M$=M$+"Anim 5,($8001,4)($8002,4)($8003,4)($8004,4)($8005,4)($8006,4)($8005,4)($8004,4)($8003,4)($8002,4);"
  65.    M$=M$+" Move -250,0,80"
  66.    Amal 2,M$
  67.    Amal On 2
  68.    Wait 180
  69.    Amal Off 2
  70. End Proc
  71. Procedure SUM
  72.    ZX:
  73.    A=Rnd(10) : B=Rnd(8)
  74.    MA=Max(A,B) : MI=Min(A,B)
  75.    A=MA : B=MI
  76.    If A+B>12 or A+B<1 Then Goto ZX
  77.    A$=Str$(A) : B$=Str$(B)
  78.    Ink 15,14, : Text 33,80,A$ : Text 74,80,B$
  79.    Do 
  80.       C=Mouse Zone
  81.       If Mouse Click=1 and C>0 and C<13 Then Exit 
  82.    Loop 
  83.    C$=Str$(C)
  84.    Ink ,12, : Text 62,113,C$
  85. If A+B=C : Bell : Inc KEY : Else Shoot : End If 
  86.    Wait 100
  87.    Ink 12,, : Text 62,113,C$
  88.    Ink 14,14, : Text 33,80,A$ : Text 74,80,B$
  89. End Proc
  90. Procedure SCR
  91.    Screen Open 1,320,250,16,Lowres
  92.    Screen Open 0,320,250,16,Lowres
  93.    Load "care.bears:sprites/funshine.abk"
  94.    Curs Off : Flash Off : Hide 
  95.    Load "mus"
  96.    Load Iff "iff/caretitle.iff",0
  97.    Load Iff "care.bears:iff/bear.iff",1
  98.    Get Disc Fonts : Set Font 4 : Set Text 0
  99.    Screen Display 0,128,45,,
  100.    Get Sprite Palette 
  101.    Music 1
  102.    Tempo 9
  103.    Repeat : Until Mouse Key=1
  104.    Screen Display 1,128,45,,
  105.    View 
  106. End Proc
  107. Procedure ZO
  108.    Reserve Zone 12
  109.    L=27
  110.    Locate 1,L : Print Zone$(Border$("1",2),1)
  111.    Locate 4,L : Print Zone$(Border$("2",2),2)
  112.    Locate 7,L : Print Zone$(Border$("3",2),3)
  113.    Locate 10,L : Print Zone$(Border$("4",2),4)
  114.    Locate 13,L : Print Zone$(Border$("5",2),5)
  115.    Locate 16,L : Print Zone$(Border$("6",2),6)
  116.    Locate 19,L : Print Zone$(Border$("7",2),7)
  117.    Locate 22,L : Print Zone$(Border$("8",2),8)
  118.    Locate 25,L : Print Zone$(Border$("9",2),9)
  119.    Locate 28,L : Print Zone$(Border$("10",2),10)
  120.    Locate 32,L : Print Zone$(Border$("11",2),11)
  121.    Locate 36,L : Print Zone$(Border$("12",2),12)
  122.    Limit Mouse 130,253 To 435,274
  123.    Show 
  124. End Proc
  125. Procedure CAGE1
  126.    Channel 4 To Bob 3
  127.    Bob 3,180,88,11
  128.    M$=M$+"B:Move 10,3,20 ; Move -10,-3,30;Jump B"
  129.    Amal 4,M$
  130.    Amal On 4
  131. End Proc
  132. Procedure CAGE2
  133.    Channel 3 To Bob 2
  134.    Bob 2,230,100,10
  135.    M$=M$+"C:Move 10,3,30 ; Move -10,-3,20;Jump C"
  136.    Amal 3,M$
  137.    Amal On 3
  138. End Proc
  139. Procedure CAGE3
  140.    Channel 5 To Bob 4
  141.    Bob 4,286,88,11
  142.    M$="D:Move 10,-3,30 ;M-10,3,20;Jump D "
  143.    Amal 5,M$
  144.    Amal On 5
  145. End Proc
  146. Procedure FIRST
  147.    For Y=126 To 130
  148.       Bob 11,45,Y,7
  149.       Wait 5
  150.    Next Y
  151.    Rem gets key and opens first cage
  152.    Channel 6 To Bob 15
  153.    Bob 15,140,100,$8001
  154.    M$="Anim 2,($8001,4)($8002,4)($8003,4)($8004,4)($8005,4)($8006,4)($8005,4)($8004,4)($8003,4)($8002,4);"
  155.    M$=M$+"Move 0,-20,20;M -90,0,30"
  156.    M$=M$+"Anim 3,(1,4)(2,4)(3,4)(4,4)(5,4)(6,4)(5,4)(4,4)(3,4)(2,4);"
  157.    M$=M$+"Move 130,0,100 ; M 0,-20,20"
  158.    Amal 6,M$
  159.    Amal On 6
  160.    Do 
  161.       If X Bob(15)<70 Then Bob Off 11 : Exit 
  162.    Loop 
  163.    Wait 200
  164.    ' lock open
  165.    Bob 12,194,81,15
  166.    'lid open
  167.    Bob Off 10
  168.    Bob 1,156,64,17
  169.    Rem bear goes away 
  170.    Channel 7 To Bob 15
  171.    Bob 15,140,100,1
  172.    M$=""
  173.    M$="Anim 3,(1,6)(2,6)(3,6)(4,6)(5,6)(6,6)(5,6)(4,6)(3,6)(2,6);"
  174.    M$=M$+"Move 0,50,50;M 230,0,150"
  175.    Amal 7,M$
  176.    Amal On 7
  177.    Wait 150
  178.    Rem star comes out of box
  179.    Channel 8 To Bob 3
  180.    Bob 3,180,88,12
  181.    M$=""
  182.    M$=M$+"Anim 0,(12,150)(13,25)"
  183.    M$=M$+"Move 1,-50,50;M -15,0,10"
  184.    M$=M$+"Star:Move 10,-5,20;M 10,5,20;M -10,-5,20;M -10,5,20;Jump Star"
  185.    Amal 8,M$
  186.    Amal On 8
  187.    Wait 150
  188. End Proc
  189. Procedure SECOND
  190.    For Y=126 To 130 Step 2
  191.       Bob 11,45,Y,7
  192.       Wait 5
  193.    Next Y
  194.    Rem gets key and opens second cage 
  195.    Channel 9 To Bob 15
  196.    Bob 15,140,100,$8001
  197.    M$="Anim 2,($8001,4)($8002,4)($8003,4)($8004,4)($8005,4)($8006,4)($8005,4)($8004,4)($8003,4)($8002,4);"
  198.    M$=M$+"Move 0,-20,20;M -90,0,30"
  199.    M$=M$+"Anim 4,(1,4)(2,4)(3,4)(4,4)(5,4)(6,4)(5,4)(4,4)(3,4)(2,4);"
  200.    M$=M$+"Move 180,0,100 ; M 0,-20,20"
  201.    Amal 9,M$
  202.    Amal On 9
  203.    Do 
  204.       If X Bob(15)<70 Then Bob Off 11 : Exit 
  205.    Loop 
  206.    Wait 200
  207.    ' lock open
  208.    Bob 13,246,81,15
  209.    'lid open
  210.    Bob 5,208,66,17
  211.    Rem NEW CAGE ,I got bob priorities all wrong 
  212.    Bob Off 9
  213.    Bob 10,204,86,14
  214.    Rem bear goes away 
  215.    Channel 10 To Bob 15
  216.    Bob 15,230,60,1
  217.    M$=""
  218.    M$="Anim 3,(1,6)(2,6)(3,6)(4,6)(5,6)(6,6)(5,6)(4,6)(3,6)(2,6);"
  219.    M$=M$+"Move 0,50,30;M 230,0,120"
  220.    Amal 10,M$
  221.    Amal On 10
  222.    Wait 110
  223.    Rem heart comes out of box 
  224.    Bob Off 2
  225.    Channel 11 To Bob 9
  226.    Bob 9,230,100,9
  227.    M$=""
  228.    M$=M$+"Move-5,-50,50;"
  229.    M$=M$+"Heart:Move 10,-5,20;M 10,5,20;M -10,-5,20;M -10,5,20;Jump Heart"
  230.    Amal 11,M$
  231.    Amal On 11
  232.    Wait 150
  233. End Proc
  234. Procedure THIRD
  235.    For Y=126 To 130 Step 2
  236.       Bob 11,45,Y,7
  237.       Wait 5
  238.    Next Y
  239.    Rem gets key and opens first cage
  240.    Channel 12 To Bob 15
  241.    Bob 15,140,100,$8001
  242.    M$="Anim 2,($8001,4)($8002,4)($8003,4)($8004,4)($8005,4)($8006,4)($8005,4)($8004,4)($8003,4)($8002,4);"
  243.    M$=M$+"Move 0,-20,20;M -90,0,30"
  244.    M$=M$+"Anim 4,(1,4)(2,4)(3,4)(4,4)(5,4)(6,4)(5,4)(4,4)(3,4)(2,4);"
  245.    M$=M$+"Move 240,0,140 ; M 0,-20,20"
  246.    Amal 12,M$
  247.    Amal On 12
  248.    Do 
  249.       If X Bob(15)<70 Then Bob Off 11 : Exit 
  250.    Loop 
  251.    Wait 200
  252.    ' lock open
  253.    Bob 14,298,81,15
  254.    Rem dont need 1st and 2nd bars now 
  255.    Bob Off 10
  256.    Bob Off 6
  257.    Rem 3rd lid down goes bye,bye
  258.    Bob Off 8
  259.    ' lid open 
  260.    Bob 2,262,65,17
  261.    Rem bear goes away 
  262.    Channel 13 To Bob 15
  263.    Bob 15,290,40,1
  264.    M$=""
  265.    M$="Anim 2,(1,6)(2,6)(3,6)(4,6)(5,6)(6,6)(5,6)(4,6)(3,6)(2,6);"
  266.    M$=M$+"Move 0,50,20;M 80,0,50"
  267.    Amal 13,M$
  268.    Amal On 13
  269.    Wait 80
  270.    Rem star comes out of box
  271.    Channel 14 To Bob 4
  272.    Bob 4,286,88,12
  273.    M$=""
  274.    M$=M$+"Anim 0,(12,150)(13,25)"
  275.    M$=M$+"Move 0,-50,50;"
  276.    M$=M$+"Star:Move 10,-5,20;M 10,5,20;M -10,-5,20;M -10,5,20;Jump Star"
  277.    Amal 14,M$
  278.    Amal On 14
  279.    Wait 150
  280. End Proc
  281. Procedure FINALSCENARIO
  282.    Bob Off 7
  283.    Rem star 1 goes away 
  284.    Channel 4 To Bob 3
  285.    Bob 3,,,
  286.    Amal 4,"Move 0,90,50 ; Move -200,0,100 ; "
  287.    Amal On 4
  288.    Rem heart goes away
  289.    Channel 3 To Bob 9
  290.    Bob 9,,,
  291.    Amal 3,"Move 0,90,50 ; Move -280,0,140 ; "
  292.    Amal On 3
  293.    Rem star 2 goes away 
  294.    Channel 5 To Bob 4
  295.    Bob 4,,,
  296.    Amal 5,"Move 0,90,50 ; Move -380,0,190 ; "
  297.    Amal On 5
  298.    Wait 300
  299.    Rem play again sequence
  300.    Screen Open 5,320,90,16,Lowres : Curs Off : Flash Off : Cls 0
  301.    Box 30,10 To 300,80 : Box 32,12 To 298,78
  302.    Cls 4,33,13 To 298,78
  303.    Paper 4
  304.    Locate 13,2 : Print "Well done."
  305.    Locate 13,3 : Print "Play again?"
  306.    Auto View On 
  307.    Rem view 
  308.    For Z=1 To 90
  309.       Screen Display 5,,,,Z
  310.       Wait 1
  311.    Next Z
  312.    Reserve Zone 2
  313.    Paper 11
  314.    Locate 10,6 : Print Zone$(Border$("Yes",2),1)
  315.    Locate 30,6 : Print Zone$(Border$("No",2),2)
  316.    Limit Mouse 157,60 To 425,130
  317.    Do 
  318.       If Mouse Key=1 and Mouse Zone>0 Then MZ=Mouse Zone
  319.       If MZ=2 Then End 
  320.       If MZ=1 Then Exit 
  321.    Loop 
  322.    For Z=90 To 1 Step -1
  323.       Screen Display 5,,,,Z
  324.       Wait 1
  325.    Next Z
  326.    Screen Close 5
  327.    GAME=1
  328. End Proc